home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / show / VideoMPEGA.lha / VideoMPEGA / VideoMPEGA_CGX < prev    next >
Text File  |  2000-09-27  |  602b  |  28 lines
  1. echo "*N"
  2. Requestfile >env:MPname PATTERN #?.(mpeg|mpg|mpe) TITLE="Choose MPEG video"
  3. if warn
  4.    skip end
  5. endif
  6. if not exists $MPname
  7.    skip end
  8. endif
  9. Requestchoice >env:mode "" "Choose output mode" 24BitsColors 24BitsGray Abort
  10. if val $mode eq 1
  11. c:splitter $mpname audio t:a.mp2 video t:v.mpg
  12. run >nil: c:amipeg dither cybergfx t:v.mpg
  13. wait 1
  14. c:mpega -q 0 -d 4 -m  t:a.mp2
  15. wait 2
  16. c:delete t:a.mp2 t:v.mpg
  17. endif
  18. if val $mode eq 2
  19. c:splitter $mpname audio t:a.mp2 video t:v.mpg
  20. run >nil: c:amipeg dither cybergfxgray t:v.mpg
  21. wait 1
  22. c:mpega -q 0 -d 4 -m  t:a.mp2
  23. wait 2
  24. c:delete t:a.mp2 t:v.mpg
  25. endif
  26.  
  27.  
  28.